home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Utilities ƒ / MPW Tools ƒ / Simula4.07 / Simula 4.07ƒ / SExamples / sample.r < prev    next >
Encoding:
Text File  |  1989-04-30  |  3.3 KB  |  152 lines  |  [TEXT/MPS ]
  1. /*------------------------------------------------------------------------------
  2.  
  3.       Sample.r    -  Resources for the Simula Windowsystem Application
  4.  
  5.       Copyright Lund Software AB, 1989
  6.       All rights reserved.
  7.  
  8. ------------------------------------------------------------------------------*/
  9.  
  10. #include "Types.r"
  11.  
  12. /* These define's are used in the MENU resources to disable specific
  13.    menu items. */
  14. #define AllItems    0b1111111111111111111111111111111    /* 31 flags */
  15. #define MenuItem1    0b00001
  16. #define MenuItem2    0b00010
  17. #define MenuItem3    0b00100
  18. #define MenuItem4    0b01000
  19. #define MenuItem5    0b10000
  20.  
  21. resource 'WIND' (128, "Sim Window") {
  22.     {64, 60, 314, 460},
  23.     documentProc, visible, noGoAway, 0x0, "Sim Window"
  24. };
  25.  
  26. resource 'DLOG' (128, "About Simula…") {
  27.     {66, 102, 224, 400},
  28.     dBoxProc, visible, noGoAway, 0x0, 128, ""
  29. };
  30.  
  31. resource 'DITL' (128) {
  32.      {
  33. /* 1 */ {130, 205, 150, 284},
  34.         button {
  35.             enabled,
  36.             "Continue"
  37.         };
  38. /* 2 */ {104, 144, 120, 296},                /* SourceLanguage Item */
  39.         staticText {
  40.             disabled,
  41.             ""
  42.         };
  43. /* 3 */ {88, 144, 105, 218},                /* Author Item */
  44.         staticText {
  45.             disabled,
  46.             ""
  47.         };
  48. /* 4 */ {8, 16, 26, 273},
  49.         staticText {
  50.             disabled,
  51.             "This Sample program was developed"
  52.         };
  53. /* 5 */ {32, 16, 50, 273},
  54.         staticText {
  55.             disabled,
  56.             "using the Lund SIMULA system"
  57.         };
  58. /* 6 */ {56, 16, 74, 281},
  59.         staticText {
  60.             enabled, "Copyright © 1989 Lund Software House AB"
  61.         };
  62. /* 7 */ {88, 16, 104, 273},
  63.         staticText {
  64.             enabled, "Lund Software House AB"
  65.         };
  66. /* 8 */ {104, 16, 120, 273},
  67.         staticText {
  68.             enabled, "Box 7056, S-220 07 Lund, Sweden"
  69.         }
  70.     }
  71. };
  72.  
  73. resource 'MENU' (129, "File", preload) {
  74.     129, textMenuProc,
  75.     allEnabled,
  76.     enabled, "File",
  77.     {
  78.         "Quit",
  79.             noicon, "Q", nomark, plain
  80.     }
  81. };
  82.  
  83. resource 'MENU' (130, "Edit", preload) {
  84.     130, textMenuProc,
  85.     AllItems & ~(MenuItem1 | MenuItem2),    /* Disable items #1 & #2 */
  86.     enabled, "Edit",
  87.      {
  88.         "Undo",
  89.             noicon, "Z", nomark, plain;
  90.         "-",
  91.             noicon, nokey, nomark, plain;
  92.         "Cut",
  93.             noicon, "X", nomark, plain;
  94.         "Copy",
  95.             noicon, "C", nomark, plain;
  96.         "Paste",
  97.             noicon, "V", nomark, plain;
  98.         "Clear",
  99.             noicon, nokey, nomark, plain
  100.     }
  101. };
  102.  
  103.  
  104. resource 'ICN#' (128) {
  105.     {    /* array: 2 elements */
  106.         /* [1] */
  107.         $"0000 0000 0000 0000 0000 0000 0000 0000"
  108.         $"0040 0400 00E0 0E00 01F0 1F00 01F0 1F00"
  109.         $"01F1 1F00 01F3 9F00 01F1 1F00 01F1 1F00"
  110.         $"01F3 9F00 01F7 DF00 01FF FF00 01FF FF00"
  111.         $"01FF FF00 01FF FF00 01FF FF00 01FF FF00"
  112.         $"01FF FF00 01FF FF00 01FF FF00 01FF FF00"
  113.         $"01FF FF",
  114.         /* [2] */
  115.         $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
  116.         $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
  117.         $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
  118.         $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
  119.         $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
  120.         $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
  121.         $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
  122.         $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
  123.     }
  124. };
  125.  
  126. resource 'BNDL' (128) {
  127.     'LUND',
  128.     0,
  129.     {
  130.         'ICN#',
  131.         {
  132.             0, 128
  133.         },
  134.         'FREF',
  135.         {
  136.             0, 128
  137.         }
  138.     }
  139. };
  140.  
  141. resource 'FREF' (128) {
  142.     'APPL',
  143.     0,
  144.     ""
  145. };
  146.  
  147. data 'LUND' (0, protected) {
  148.     $"3D4C 756E 6420 5369 6D75 6C61 2053 7973"        /* =Lund Simula Sys */
  149.     $"7465 6D2E 2043 6F70 7972 6967 6874 2031"        /* tem. Copyright 1 */
  150.     $"3938 392E 204C 756E 6420 536F 6674 7761"        /* 989. Lund Softwa */
  151.     $"7265 2048 6F75 7365 5377 6564 656E"             /* re HouseSweden */
  152. };